home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / mail / YAMGenesis.lha / YAMGenesis / GenesisOnline.yam < prev    next >
Text File  |  2001-03-01  |  1KB  |  57 lines
  1. /* GenesisOnline.yam - Go online in Genesis
  2.  *
  3.  * $VER: GenesisOnline.yam 1.01 (1.3.01) © H. van der Ree <hivdree@uwnet.nl>
  4.  *
  5.  * Don't forget to change the interface into the one you use!
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. /* Change this path if required */
  11. genesispath = "AmiTCP:Genesis"
  12. genesisport = "GENESIS"
  13.  
  14. /* Change this to the interface you use */
  15. interface = "ppp0"
  16.  
  17. /* Make sure the necessary libraries are available */
  18. IF ~SHOW('L', 'rexxdossupport.library') THEN
  19.   CALL ADDLIB('rexxdossupport.library', 0, -30)
  20.  
  21. action = GETVAR(YAMSTARTED, "GLOBAL")
  22. IF action = "YES" THEN DO
  23.   CALL DELETEVAR(YAMSTARTED, "GLOBAL")
  24.   EXIT 0
  25. END
  26.  
  27. RCN = 0
  28. ADDRESS COMMAND
  29.  
  30. IF ~SHOW('P', genesisport) THEN DO
  31.   'c:wbstarter' genesispath
  32.   'WaitForPort' genesisport
  33.   CALL SETVAR(STARTEDBYYAM, "YES", "GLOBAL")
  34.   CALL DELAY(100)
  35. END
  36.  
  37. ADDRESS VALUE genesisport
  38. ISONLINE interface
  39. IF RC = 0 THEN DO
  40.   SHOW                    /* Open Genesis window */
  41.   CALL SETVAR(YAMSTART, "YES", "GLOBAL")
  42.   CALL SETVAR(GENESISINTERFACE, interface, "GLOBAL")
  43.   ONLINE interface
  44.   DO UNTIL RCN = 1
  45.     ISONLINE interface    /* 0 = OFFLINE, 1 = ONLINE, 2 = DAILING */
  46.     RCN = RC
  47.     IF RCN = 0 THEN DO
  48.       CALL DELETEVAR(YAMSTART, "GLOBAL")
  49.       EXIT 5
  50.     END
  51.     IF RCN ~= 1 THEN DELAY(100)
  52.   END
  53.   CALL DELAY(100)        /* Wait 2 secs before going to YAM! */
  54. END
  55.  
  56. EXIT 0
  57.